\begin{tabbing}
(\=(MoveToConcl ({-}1)) \+
\\[0ex]CollapseTHEN (((Unfold `can{-}apply` ( 0)$\cdot$) 
\\[0ex]CollapseTHEN (((((
\-\\[0ex]GenConclAtAddr [1;1;1;1]) 
\\[0ex]C\=ollapseTHENA (Auto$\cdot$))$\cdot$) \+
\\[0ex]CollapseTHEN (((D ({-}2)$\cdot$) 
\\[0ex]
\\[0ex]CollapseTHEN (((Reduce 0) 
\\[0ex]CollapseTHEN (Auto$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$
\-
\end{tabbing}